C# / VB.NET - [VB.NET] - Piero Tofy.it

Forum - C# / VB.NET - [VB.NET]

ju89 (Normal User)
Pro

Messaggi: 61
Iscritto: 26/03/2014

Postato alle 12:48
Mercoledì, 26/03/2014

Buongiorno, sto facendo un programma che mi calcola gli interessi annui su un importo.
Il codice è questo:

Codice sorgente - presumibilmente VB.NET

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        totaleinteressi.Text = ((Val(sanzione.Text) * Val(interessi.Text) / 100) / 12) * Val(numerorate.Text)
        totalepagare.Text = (Convert.ToDouble(sanzione.Text) + Convert.ToDouble(totaleinteressi.Text))
 
    End Sub

Però capita che a volte il risultato da come numero decimali dei numeri periodici o con tre numeri dopo la virgola, come posso fare per far visualizzare solo due numeri dopo la virgola?

R0gerBlack (Member)
Expert

Messaggi: 210
Iscritto: 10/06/2010

Postato alle 13:46
Mercoledì, 26/03/2014

Puoi usare la funzione Math.Round:
(documentazione http://msdn.microsoft.com/it-it/library/zy06z30k(v=vs.110) ...

Codice sorgente - presumibilmente C#

public static decimal Round(
        decimal d,
        int decimals
)

(uso pratico)

Codice sorgente - presumibilmente VB.NET

'Codice da mettere alla fine di Sub Button1_Click
Dim num As Decimal = totalepagare.Text
num = Math.Round(num, 2)
totalepagare.Text = num

()
Newbie

Messaggi:
Iscritto:

Postato alle 14:00
Mercoledì, 26/03/2014

Più semplicemente

Codice sorgente - presumibilmente Plain Text

totalepagare.Text = (Convert.ToDouble(sanzione.Text) + Convert.ToDouble(totaleinteressi.Text)).ToString("0.00")

P.S. Perché nella prima linea utilizzi la Val ???

Ultima modifica effettuata da il 26/03/2014 alle 14:01

ju89 (Normal User)
Pro

Messaggi: 61
Iscritto: 26/03/2014

Postato alle 15:08
Mercoledì, 26/03/2014

Uso il Val sennò non mi fa l'operazione; molto comoda la funziona

Codice sorgente - presumibilmente Plain Text

ToString.("0.00")

però quando faccio il comando per calcolare questa riga di codice

Codice sorgente - presumibilmente Plain Text

totaleinteressi.Text = ((Val(sanzione.Text) * (interessi.Text) / 100) / 12) * Val(numerorate.Text).ToString("0.00")

Il risultato di totaleinteressi.Text viene con 4 cifre dopo lo zero, come mai?

ju89 (Normal User)
Pro

Messaggi: 61
Iscritto: 26/03/2014

Postato alle 15:31
Mercoledì, 26/03/2014

Ho risolto aggiungendo .ToString("0.00") prima della moltiplicazione ed ho risolto.
Grazie siete stati gentilissimi.

Ultima modifica effettuata da ju89 il 26/03/2014 alle 15:31

()
Newbie

Messaggi:
Iscritto:

Postato alle 17:32
Mercoledì, 26/03/2014

Non hai capito ... al posto della Val dovresti usare la Convert.ToDouble